#!/usr/bin/perl

use CGI qw(:standard);

print header( -type => 'application/xml+rss' );

print<<EOC;
<?xml version="1.0" ?>
<rss version="2.0">
  <channel>
    <title>Ajax and XUL</title>
    <link>http://www.xul.fr/en/</link>
    <description>XML graphical interface etc...</description>
    <image>
        <url>http://www.xul.fr/xul-icon.gif</url>
        <link>http://www.xul.fr/en/index.php</link>
    </image>
    <item>
       <title>News of today</title>
       <link>http://www.xul.fr/en-xml-rss.html</link> 
       <description>All you need to know about RSS</description>
    </item>
    <item>
       <title>News of tomorrows</title>
       <link>http://www.xul.fr/en-xml-rdf.html</link> 
       <description>And now, all about RDF</description>
    </item>
  </channel>
</rss>
EOC
